home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk180 / arexxtutorial / giftosham / giftosham.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  827b  |  41 lines
  1. /* REXX glue to use with SHAMVIEW2.0 routines.
  2.    Convert GIF format pics to SHAM format 
  3.  
  4. Usage: GIFtoSHAM <GIF-FILENAME>
  5.  
  6. By: E.R. Uber
  7.     1941 W. Morningside Dr.
  8.     Phoenix, AZ  85023
  9.     PLINK: E*R*UBER
  10. */
  11.  
  12. RED = ''
  13. BLK = ''
  14. DEF = ''
  15.  
  16. parse arg 1 f
  17. if arg() = 0 | f = '?' then do
  18.     say BLK'Usage: 'DEF'GIFtoSHAM <'RED'Filename.gif'DEF'>'
  19.     exit 0
  20. end
  21.  
  22. /* Find filename without .gif extension for use later during rename */
  23. if upper(right(f,4)) = '.GIF' then
  24.     fn = left(f,length(f)-4)
  25. else
  26.     fn = f
  27.  
  28. say RED'giftotmp 'f f'.tmp'BLK
  29. 'giftotmp 'f f'.tmp'
  30.  
  31. say RED'supercon 'f'.tmp'BLK
  32. 'supercon 'f'.tmp'
  33.  
  34. say RED'rename 'f'.tmp.sham' fn'.sham'BLK
  35. 'rename 'f'.tmp.sham' fn'.sham'
  36.  
  37. /* 'shamview 'f'.sham' DO NOT NEED TO DO THIS SINCE SUPERCON DISPLAYS */
  38.  
  39. say RED'delete 'f'.tmp'DEF
  40. 'delete 'f'.tmp'
  41.